# 2 corners with set_wire_rc
source "helpers.tcl"
define_corners ss ff
read_liberty -corner ss Nangate45/Nangate45_slow.lib
read_liberty -corner ff Nangate45/Nangate45_fast.lib
read_lef Nangate45/Nangate45.lef
read_def reg6.def

create_clock -period 10 clk
set_input_delay -clock clk 0 in1

# kohm/micron
set r 5.43e-3
# fF/micron
set c 6.013e-2

set_wire_rc -corner ff -resistance [expr { $r * 0.8 }] \
  -capacitance [expr { $c * 0.8 }]
set_wire_rc -corner ss -resistance [expr { $r * 1.2 }] \
  -capacitance [expr { $c * 1.2 }]
estimate_parasitics -placement

report_net r1/Q -corner ff
report_net r1/Q -corner ss
